object BCB_PGM: TBCB_PGM
  Left = 146
  Top = 55
  Width = 628
  Height = 341
  Caption = 'BCB_PGM'
  Font.Charset = ANSI_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Courier New'
  Font.Style = []
  Menu = MainMenu
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 14
  object Memo: TMemo
    Left = 0
    Top = 0
    Width = 620
    Height = 297
    Align = alTop
    Lines.Strings = (
      '')
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 0
    WantTabs = True
    OnKeyPress = OnKeyPress
  end
  object MainMenu: TMainMenu
    Left = 64
    Top = 24
    object Line: TMenuItem
      Caption = 'Line'
      ShortCut = 0
      object Exit: TMenuItem
        Caption = 'Exit'
        ShortCut = 0
        OnClick = ExitClick
      end
      object OnLine: TMenuItem
        Caption = 'OnLine'
        ShortCut = 0
        OnClick = OnLineClick
      end
      object OffLine: TMenuItem
        Caption = 'OffLine'
        Checked = True
        Enabled = False
        ShortCut = 0
        OnClick = OffLineClick
      end
    end
    object Port: TMenuItem
      Caption = 'Port'
      ShortCut = 0
      object mCOM1: TMenuItem
        Caption = 'COM1'
        Checked = True
        ShortCut = 0
        OnClick = mCOM1Click
      end
      object mCOM2: TMenuItem
        Caption = 'COM2'
        ShortCut = 0
        OnClick = mCOM2Click
      end
      object mCOM3: TMenuItem
        Caption = 'COM3'
        ShortCut = 0
        OnClick = mCOM3Click
      end
      object mCOM4: TMenuItem
        Caption = 'COM4'
        ShortCut = 0
        OnClick = mCOM4Click
      end
    end
    object Baud: TMenuItem
      Caption = 'Baud'
      ShortCut = 0
      object N9600: TMenuItem
        Caption = '9600'
        ShortCut = 0
        OnClick = N9600Click
      end
      object N19200: TMenuItem
        Caption = '19200'
        ShortCut = 0
        OnClick = N19200Click
      end
      object N38400: TMenuItem
        Caption = '38400'
        Checked = True
        ShortCut = 0
        OnClick = N38400Click
      end
      object N57600: TMenuItem
        Caption = '57600'
        ShortCut = 0
        OnClick = N57600Click
      end
    end
  end
  object Timer: TTimer
    Interval = 200
    OnTimer = TimerTimer
    Left = 136
    Top = 24
  end
end